Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/3d_howto/3d.frm

Visual Basic Form | 1995-09-06 | 5.3 KB | 189 lines

VERSION 2.00
Begin Form Form3D
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "3D look examples"
   ClientHeight    =   6060
   ClientLeft      =   2430
   ClientTop       =   1740
   ClientWidth     =   5625
   ControlBox      =   0   'False
   Height          =   6465
   Left            =   2370
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6060
   ScaleWidth      =   5625
   Top             =   1395
   Width           =   5745
   Begin PictureBox Picture1
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   480
      Left            =   2280
      Picture         =   3D.FRX:0000
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   11
      Top             =   3960
      Width           =   480
   End
   Begin CommandButton Command3
      Caption         =   "&Quit"
      Height          =   345
      Left            =   300
      TabIndex        =   10
      Top             =   5400
      Width           =   855
   End
   Begin CommandButton Command2
      Caption         =   "&Recess"
      Height          =   345
      Left            =   300
      TabIndex        =   8
      Top             =   4710
      Width           =   855
   End
   Begin CommandButton Command1
      Caption         =   "R&aise"
      Height          =   345
      Left            =   300
      TabIndex        =   5
      Top             =   4020
      Width           =   855
   End
   Begin ListBox List1
      Height          =   1005
      Left            =   300
      TabIndex        =   1
      Top             =   1830
      Width           =   2865
   End
   Begin TextBox Text1
      Height          =   285
      Left            =   300
      TabIndex        =   0
      Text            =   "3 D Text"
      Top             =   1170
      Width           =   2865
   End
   Begin HScrollBar HScroll1
      Height          =   375
      Left            =   840
      Max             =   10
      TabIndex        =   9
      Top             =   3210
      Width           =   1695
   End
   Begin CheckBox Check2
      Caption         =   "3D Check2"
      Height          =   270
      Left            =   1830
      TabIndex        =   6
      Top             =   5460
      Width           =   1395
   End
   Begin FileListBox File1
      Height          =   4515
      Left            =   3630
      TabIndex        =   3
      Top             =   1290
      Width           =   1695
   End
   Begin CheckBox Check1
      Caption         =   "3D Check1"
      Height          =   270
      Left            =   1830
      TabIndex        =   4
      Top             =   4830
      Width           =   1395
   End
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   3630
      TabIndex        =   2
      Top             =   300
      Width           =   1695
   End
   Begin Frame Frame1
      Caption         =   "3D Frame"
      Height          =   675
      Left            =   300
      TabIndex        =   7
      Top             =   150
      Width           =   2865
   End
Sub Check1_Click ()
End Sub
Sub Check2_Click ()
End Sub
Sub Command1_Click ()
    PaintFrames CTLRAISED
    Frame1.Caption = "The Raised look"
End Sub
Sub Command2_Click ()
    PaintFrames CTLRECESSED
    Frame1.Caption = "The cellar look"
End Sub
Sub Command3_Click ()
    Me.Hide
    MsgBox "C Ya!"
    End
End Sub
Sub Form_Load ()
    BackColor = RGB(BKGNDGRAY, BKGNDGRAY, BKGNDGRAY)
    FrameWidth = DEFAULTWIDTH
    HScroll1.Value = FrameWidth
    List1.AddItem "Move the ScroolBar"
    List1.AddItem "and click on Recess"
    List1.AddItem "or Raise to redraw"
    List1.AddItem "the new 3D commands."
    List1.AddItem "_________________________"
    List1.AddItem "The Visual Basic Depot"
    List1.AddItem "FIDO 1:2380/410.0"
    List1.AddItem "Flatrock, MI"
    List1.AddItem "CIS: 72400,505"
    List1.AddItem "AOL: WISECARVER"
    Show
End Sub
Sub Form_Paint ()
    PaintFrames CTLRAISED
End Sub
Sub HScroll1_Change ()
    FrameWidth = HScroll1.Value
    Text1.Text = "Value of HScroll1 is " + Str$(FrameWidth)
End Sub
Sub InitCtl (C As Control, InOut As Integer)
    If TypeOf C Is HScrollBar Then      ' No BackColor for Scroll Bars
    Else
        C.BackColor = C.Parent.BackColor        ' Set to Forms Backcolor
    End If
    HighLight C, InOut
End Sub
Sub PaintFrames (InOut As Integer)
' Convert All forms to Single View.
    Cls  ' Remove Old Frames
    InitCtl Frame1, InOut
    InitCtl HScroll1, InOut
    InitCtl Text1, InOut
    InitCtl List1, InOut
    InitCtl Command1, InOut
    InitCtl Command2, InOut
    InitCtl Command3, InOut
    InitCtl Drive1, InOut
    InitCtl File1, InOut
    InitCtl Check1, InOut
    InitCtl Check2, InOut
    InitCtl Picture1, InOut
' Other elements that need initialization.
    Picture1.Refresh                ' Repaint Picture Box
End Sub
Sub Picture1_Click ()
End Sub
Sub Text1_Change ()
Frame1.Caption = Text1.Text
End Sub